/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / a-d / blitzbasic21 / examples / andrew / dual.bb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 63 72 65 61 74 69 6e | 67 20 44 65 6c 61 75 6e |;creatin|g Delaun|
|00000010| 65 79 2f 56 6f 72 6f 6e | 6f 69 20 28 73 69 63 29 |ey/Voron|oi (sic)|
|00000020| 20 64 69 61 67 72 61 6d | 73 2e 2e 00 00 23 64 65 | diagram|s....#de|
|00000030| 6c 3d 80 c5 00 23 76 6f | 72 3d 80 c5 00 00 00 00 |l=...#vo|r=......|
|00000040| d0 01 20 30 2c 33 32 30 | 2c 32 35 36 2c 33 00 d0 |.. 0,320|,256,3..|
|00000050| 01 20 31 2c 33 32 30 2c | 32 35 36 2c 33 00 00 80 |. 1,320,|256,3...|
|00000060| 34 00 c7 82 20 30 2c 33 | 00 c7 83 20 30 00 00 ce |4... 0,3|... 0...|
|00000070| 17 20 30 2c 38 00 ce 0a | 20 30 2c 30 2c 30 2c 35 |. 0,8...| 0,0,0,5|
|00000080| 2c 33 00 ce 0a 20 30 2c | 31 2c 31 32 2c 31 32 2c |,3... 0,|1,12,12,|
|00000090| 31 32 00 ce 0a 20 30 2c | 32 2c 31 35 2c 31 35 2c |12... 0,|2,15,15,|
|000000a0| 31 35 00 ce 0a 20 30 2c | 33 2c 30 2c 30 2c 31 35 |15... 0,|3,0,0,15|
|000000b0| 00 00 c7 86 20 30 2c 30 | 00 00 00 00 80 01 20 2e |.... 0,0|...... .|
|000000c0| 70 74 00 20 20 78 2e 71 | 3a 79 2e 71 00 80 02 20 |pt.  x.q|:y.q... |
|000000d0| 80 01 00 00 80 01 20 2e | 6c 69 6e 00 20 20 73 74 |...... .|lin.  st|
|000000e0| 78 2e 71 3a 73 74 79 2e | 71 00 20 20 66 61 72 78 |x.q:sty.|q.  farx|
|000000f0| 2e 71 3a 66 61 72 79 2e | 71 00 20 20 64 65 6c 78 |.q:fary.|q.  delx|
|00000100| 2e 71 3a 64 65 6c 79 2e | 71 00 20 20 61 2e 71 3a |.q:dely.|q.  a.q:|
|00000110| 62 2e 71 00 20 20 69 2e | 77 3a 6a 2e 77 00 80 02 |b.q.  i.|w:j.w...|
|00000120| 20 80 01 00 00 80 04 20 | 70 74 2e 70 74 28 31 30 | ...... |pt.pt(10|
|00000130| 30 29 2c 6c 69 6e 2e 6c | 69 6e 28 31 30 30 30 29 |0),lin.l|in(1000)|
|00000140| 00 6c 69 6e 73 3d 2d 31 | 00 00 00 23 70 74 73 3d |.lins=-1|...#pts=|
|00000150| 31 30 00 00 80 06 20 43 | 72 65 61 74 65 00 00 b6 |10.... C|reate...|
|00000160| 01 20 80 c5 00 00 00 2e | 4d 61 69 6e 00 80 bb 00 |. ......|Main....|
|00000170| 20 20 80 37 3a c7 84 20 | 30 2c 64 62 3a 64 62 3d |  .7:.. |0,db:db=|
|00000180| 31 2d 64 62 00 20 20 80 | 2c 20 d0 01 20 64 62 3a |1-db.  .|, .. db:|
|00000190| b2 05 3a c7 02 20 64 62 | 3a c7 04 20 30 2c 30 3a |..:.. db|:.. 0,0:|
|000001a0| 72 65 76 3d 30 00 00 20 | 20 70 74 28 23 70 74 73 |rev=0.. | pt(#pts|
|000001b0| 29 5c 78 3d b6 04 2c b6 | 05 00 20 20 80 06 20 44 |)\x=..,.|..  .. D|
|000001c0| 72 61 77 00 00 80 bc 20 | df 04 28 30 29 3c 3e 30 |raw.... |..(0)<>0|
|000001d0| 00 80 02 00 00 00 00 2e | 43 72 65 61 74 65 00 00 |........|Create..|
|000001e0| 00 20 20 80 16 20 69 2e | 77 3d 30 20 80 18 20 23 |.  .. i.|w=0 .. #|
|000001f0| 70 74 73 00 00 00 00 20 | 20 20 20 78 3d bc 07 2a |pts.... |   x=..*|
|00000200| 31 30 30 2d 35 30 2b 31 | 36 30 3a 79 3d bc 07 2a |100-50+1|60:y=..*|
|00000210| 31 30 30 2b 35 30 00 20 | 20 20 20 80 bb 00 20 20 |100+50. |   ...  |
|00000220| 20 20 20 20 78 3d bc 07 | 2a 33 32 30 3a 79 3d bc |    x=..|*320:y=.|
|00000230| 07 2a 32 30 30 3a 68 61 | 70 70 79 3d 80 c5 00 20 |.*200:ha|ppy=... |
|00000240| 20 20 20 20 20 80 16 20 | 6a 2e 77 3d 30 20 80 18 |     .. |j.w=0 ..|
|00000250| 20 69 2d 31 00 20 20 20 | 20 20 20 20 20 80 0b 20 | i-1.   |     .. |
|00000260| bc 08 28 78 2d 70 74 28 | 6a 29 5c 78 29 3c 32 35 |..(x-pt(|j)\x)<25|
|00000270| 00 20 20 20 20 20 20 20 | 20 20 20 80 0b 20 bc 08 |.       |   .. ..|
|00000280| 28 79 2d 70 74 28 6a 29 | 5c 79 29 3c 32 35 20 80 |(y-pt(j)|\y)<25 .|
|00000290| 21 20 68 61 70 70 79 3d | 80 c6 00 20 20 20 20 20 |! happy=|...     |
|000002a0| 20 20 20 80 c0 00 20 20 | 20 20 20 20 80 17 00 20 |   ...  |    ... |
|000002b0| 20 20 20 80 bc 20 68 61 | 70 70 79 00 00 20 20 20 |   .. ha|ppy..   |
|000002c0| 20 80 0e 20 69 00 3b 20 | 20 20 20 20 20 43 61 73 | .. i.; |     Cas|
|000002d0| 65 20 30 3a 78 3d 31 30 | 30 3a 79 3d 31 30 30 00 |e 0:x=10|0:y=100.|
|000002e0| 3b 20 20 20 20 20 20 43 | 61 73 65 20 31 3a 78 3d |;      C|ase 1:x=|
|000002f0| 31 37 30 3a 79 3d 31 35 | 30 00 3b 20 20 20 20 20 |170:y=15|0.;     |
|00000300| 20 43 61 73 65 20 32 3a | 78 3d 31 35 30 3a 79 3d | Case 2:|x=150:y=|
|00000310| 32 30 00 3b 20 20 20 20 | 20 20 43 61 73 65 20 33 |20.;    |  Case 3|
|00000320| 3a 78 3d 31 36 30 3a 79 | 3d 38 30 00 00 3b 20 20 |:x=160:y|=80..;  |
|00000330| 20 20 20 20 43 61 73 65 | 20 34 3a 78 3d 4d 6f 75 |    Case| 4:x=Mou|
|00000340| 73 65 58 3a 79 3d 4d 6f | 75 73 65 59 00 00 20 20 |seX:y=Mo|useY..  |
|00000350| 20 20 80 02 20 80 0e 00 | 3b 20 20 20 20 50 6c 6f |  .. ...|;    Plo|
|00000360| 74 20 78 2c 79 2c 69 2b | 31 00 20 20 20 20 70 74 |t x,y,i+|1.    pt|
|00000370| 28 69 29 5c 78 3d 78 2c | 79 00 20 20 20 20 2a 71 |(i)\x=x,|y.    *q|
|00000380| 2e 70 74 3d 70 74 28 69 | 29 00 20 20 80 17 00 80 |.pt=pt(i|).  ....|
|00000390| 07 00 00 00 00 00 2e 44 | 72 61 77 00 20 20 6c 69 |.......D|raw.  li|
|000003a0| 6e 73 3d 2d 31 00 20 20 | 80 16 20 69 2e 77 3d 30 |ns=-1.  |.. i.w=0|
|000003b0| 20 80 18 20 23 70 74 73 | 00 20 20 20 20 2a 70 2e | .. #pts|.    *p.|
|000003c0| 70 74 3d 70 74 28 69 29 | 3a 78 3d 2a 70 5c 78 3a |pt=pt(i)|:x=*p\x:|
|000003d0| 79 3d 2a 70 5c 79 00 20 | 20 20 20 80 16 20 6a 3d |y=*p\y. |   .. j=|
|000003e0| 30 20 80 18 20 69 2d 31 | 00 20 20 20 20 20 20 2a |0 .. i-1|.      *|
|000003f0| 70 2e 70 74 3d 70 74 28 | 6a 29 00 00 20 20 20 20 |p.pt=pt(|j)..    |
|00000400| 20 20 6c 69 6e 73 2b 31 | 3a 2a 6c 2e 6c 69 6e 3d |  lins+1|:*l.lin=|
|00000410| 6c 69 6e 28 6c 69 6e 73 | 29 00 20 20 20 20 20 20 |lin(lins|).      |
|00000420| 2a 6c 5c 73 74 78 3d 28 | 78 2b 2a 70 5c 78 29 20 |*l\stx=(|x+*p\x) |
|00000430| 80 45 20 31 2c 28 79 2b | 2a 70 5c 79 29 20 80 45 |.E 1,(y+|*p\y) .E|
|00000440| 20 31 00 00 20 20 20 20 | 20 20 64 78 3d 79 2d 2a | 1..    |  dx=y-*|
|00000450| 70 5c 79 3a 64 79 3d 2a | 70 5c 78 2d 78 00 20 20 |p\y:dy=*|p\x-x.  |
|00000460| 20 20 20 20 64 69 73 74 | 3d e0 0c 28 64 78 2a 64 |    dist|=..(dx*d|
|00000470| 78 2b 64 79 2a 64 79 29 | 00 20 20 20 20 20 20 2a |x+dy*dy)|.      *|
|00000480| 6c 5c 64 65 6c 78 3d 64 | 78 2f 64 69 73 74 2c 64 |l\delx=d|x/dist,d|
|00000490| 79 2f 64 69 73 74 00 20 | 20 20 20 20 20 2a 6c 5c |y/dist. |     *l\|
|000004a0| 66 61 72 78 3d 2a 6c 5c | 73 74 78 2b 64 78 2a 36 |farx=*l\|stx+dx*6|
|000004b0| 35 30 2c 2a 6c 5c 73 74 | 79 2b 64 79 2a 36 35 30 |50,*l\st|y+dy*650|
|000004c0| 00 20 20 20 20 20 20 2a | 6c 5c 61 3d 2d 36 34 30 |.      *|l\a=-640|
|000004d0| 2c 36 34 30 00 20 20 20 | 20 20 20 2a 6c 5c 69 3d |,640.   |   *l\i=|
|000004e0| 69 2c 6a 00 20 20 20 20 | 80 17 00 20 20 80 17 00 |i,j.    |...  ...|
|000004f0| 00 00 20 20 80 16 20 6b | 3d 23 70 74 73 20 80 18 |..  .. k|=#pts ..|
|00000500| 20 30 20 80 19 20 2d 31 | 00 00 20 20 20 20 80 16 | 0 .. -1|..    ..|
|00000510| 20 68 3d 31 20 80 18 20 | 6c 69 6e 73 00 20 20 20 | h=1 .. |lins.   |
|00000520| 20 20 20 2a 68 2e 6c 69 | 6e 3d 6c 69 6e 28 68 29 |   *h.li|n=lin(h)|
|00000530| 00 20 20 20 20 20 20 80 | 0b 20 2a 68 5c 69 3d 6b |.      .|. *h\i=k|
|00000540| 20 80 8a 20 2a 68 5c 6a | 3d 6b 00 20 20 20 20 20 | .. *h\j|=k.     |
|00000550| 20 20 20 80 16 20 67 3d | 30 20 80 18 20 68 2d 31 |   .. g=|0 .. h-1|
|00000560| 00 20 20 20 20 20 20 20 | 20 20 20 2a 67 2e 6c 69 |.       |   *g.li|
|00000570| 6e 3d 6c 69 6e 28 67 29 | 00 20 20 20 20 20 20 20 |n=lin(g)|.       |
|00000580| 20 20 20 80 0b 20 2a 67 | 5c 69 3d 6b 20 80 8a 20 |   .. *g|\i=k .. |
|00000590| 2a 67 5c 6a 3d 6b 00 20 | 20 20 20 20 20 20 20 20 |*g\j=k. |        |
|000005a0| 20 20 20 72 65 76 2b 31 | 00 00 20 20 20 20 20 20 |   rev+1|..      |
|000005b0| 20 20 20 20 20 20 64 78 | 3d 2a 68 5c 73 74 78 2d |      dx|=*h\stx-|
|000005c0| 2a 67 5c 73 74 78 00 20 | 20 20 20 20 20 20 20 20 |*g\stx. |        |
|000005d0| 20 20 20 64 79 3d 2a 68 | 5c 73 74 79 2d 2a 67 5c |   dy=*h|\sty-*g\|
|000005e0| 73 74 79 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |sty.    |        |
|000005f0| 64 65 74 3d 2a 67 5c 64 | 65 6c 78 2a 2a 68 5c 64 |det=*g\d|elx**h\d|
|00000600| 65 6c 79 2d 2a 67 5c 64 | 65 6c 79 2a 2a 68 5c 64 |ely-*g\d|ely**h\d|
|00000610| 65 6c 78 00 00 20 20 20 | 20 20 20 20 20 20 20 20 |elx..   |        |
|00000620| 20 75 3d 28 64 78 2a 2a | 67 5c 64 65 6c 79 2d 64 | u=(dx**|g\dely-d|
|00000630| 79 2a 2a 67 5c 64 65 6c | 78 29 2f 64 65 74 00 20 |y**g\del|x)/det. |
|00000640| 20 20 20 20 20 20 20 20 | 20 20 20 76 3d 28 64 78 |        |   v=(dx|
|00000650| 2a 2a 68 5c 64 65 6c 79 | 2d 64 79 2a 2a 68 5c 64 |**h\dely|-dy**h\d|
|00000660| 65 6c 78 29 2f 64 65 74 | 00 00 00 00 00 20 20 20 |elx)/det|.....   |
|00000670| 20 20 20 20 20 20 20 20 | 20 80 0b 20 2a 67 5c 69 |        | .. *g\i|
|00000680| 3d 6b 00 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |=k.     |        |
|00000690| 20 2a 71 2e 70 74 3d 70 | 74 28 2a 67 5c 6a 29 3a | *q.pt=p|t(*g\j):|
|000006a0| 68 69 67 68 3d 80 c5 00 | 20 20 20 20 20 20 20 20 |high=...|        |
|000006b0| 20 20 20 20 80 22 00 20 | 20 20 20 20 20 20 20 20 |    .". |        |
|000006c0| 20 20 20 20 20 2a 71 2e | 70 74 3d 70 74 28 2a 67 |     *q.|pt=pt(*g|
|000006d0| 5c 69 29 3a 68 69 67 68 | 3d 80 c6 00 20 20 20 20 |\i):high|=...    |
|000006e0| 20 20 20 20 20 20 20 20 | 80 c0 00 00 20 20 20 20 |        |....    |
|000006f0| 20 20 20 20 20 20 20 20 | 80 0b 20 2a 68 5c 6a 3d |        |.. *h\j=|
|00000700| 6b 20 80 21 20 68 69 67 | 68 3d 80 89 20 68 69 67 |k .! hig|h=.. hig|
|00000710| 68 00 00 20 20 20 20 20 | 20 20 20 20 20 20 20 64 |h..     |       d|
|00000720| 78 3d 2a 71 5c 78 2d 2a | 68 5c 73 74 78 00 20 20 |x=*q\x-*|h\stx.  |
|00000730| 20 20 20 20 20 20 20 20 | 20 20 64 79 3d 2a 71 5c |        |  dy=*q\|
|00000740| 79 2d 2a 68 5c 73 74 79 | 00 00 20 20 20 20 20 20 |y-*h\sty|..      |
|00000750| 20 20 20 20 20 20 80 0b | 20 64 78 2a 2a 68 5c 64 |      ..| dx**h\d|
|00000760| 65 6c 78 2b 64 79 2a 2a | 68 5c 64 65 6c 79 3c 30 |elx+dy**|h\dely<0|
|00000770| 20 80 21 20 68 69 67 68 | 3d 80 89 20 68 69 67 68 | .! high|=.. high|
|00000780| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 80 0b 20 |.       |     .. |
|00000790| 68 69 67 68 00 20 20 20 | 20 20 20 20 20 20 20 20 |high.   |        |
|000007a0| 20 20 20 80 0b 20 76 3e | 2a 67 5c 61 20 80 21 20 |   .. v>|*g\a .! |
|000007b0| 2a 67 5c 61 3d 76 00 20 | 20 20 20 20 20 20 20 20 |*g\a=v. |        |
|000007c0| 20 20 20 80 22 00 20 20 | 20 20 20 20 20 20 20 20 |   .".  |        |
|000007d0| 20 20 20 20 80 0b 20 76 | 3c 2a 67 5c 62 20 80 21 |    .. v|<*g\b .!|
|000007e0| 20 2a 67 5c 62 3d 76 00 | 20 20 20 20 20 20 20 20 | *g\b=v.|        |
|000007f0| 20 20 20 20 80 c0 00 00 | 00 20 20 20 20 20 20 20 |    ....|.       |
|00000800| 20 20 20 20 20 80 0b 20 | 2a 68 5c 69 3d 6b 00 20 |     .. |*h\i=k. |
|00000810| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 2a 71 2e |        |     *q.|
|00000820| 70 74 3d 70 74 28 2a 68 | 5c 6a 29 3a 68 69 67 68 |pt=pt(*h|\j):high|
|00000830| 3d 80 c5 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |=...    |        |
|00000840| 80 22 00 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.".     |        |
|00000850| 20 2a 71 2e 70 74 3d 70 | 74 28 2a 68 5c 69 29 3a | *q.pt=p|t(*h\i):|
|00000860| 68 69 67 68 3d 80 c6 00 | 20 20 20 20 20 20 20 20 |high=...|        |
|00000870| 20 20 20 20 80 c0 00 00 | 20 20 20 20 20 20 20 20 |    ....|        |
|00000880| 20 20 20 20 80 0b 20 2a | 67 5c 6a 3d 6b 20 80 21 |    .. *|g\j=k .!|
|00000890| 20 68 69 67 68 3d 80 89 | 20 68 69 67 68 00 00 20 | high=..| high.. |
|000008a0| 20 20 20 20 20 20 20 20 | 20 20 20 64 78 3d 2a 71 |        |   dx=*q|
|000008b0| 5c 78 2d 2a 67 5c 73 74 | 78 00 20 20 20 20 20 20 |\x-*g\st|x.      |
|000008c0| 20 20 20 20 20 20 64 79 | 3d 2a 71 5c 79 2d 2a 67 |      dy|=*q\y-*g|
|000008d0| 5c 73 74 79 00 00 20 20 | 20 20 20 20 20 20 20 20 |\sty..  |        |
|000008e0| 20 20 80 0b 20 64 78 2a | 2a 67 5c 64 65 6c 78 2b |  .. dx*|*g\delx+|
|000008f0| 64 79 2a 2a 67 5c 64 65 | 6c 79 3c 30 20 80 21 20 |dy**g\de|ly<0 .! |
|00000900| 68 69 67 68 3d 80 89 20 | 68 69 67 68 00 20 20 20 |high=.. |high.   |
|00000910| 20 20 20 20 20 20 20 20 | 20 80 0b 20 68 69 67 68 |        | .. high|
|00000920| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 80 |.       |       .|
|00000930| 0b 20 75 3e 2a 68 5c 61 | 20 80 21 20 2a 68 5c 61 |. u>*h\a| .! *h\a|
|00000940| 3d 75 00 20 20 20 20 20 | 20 20 20 20 20 20 20 80 |=u.     |       .|
|00000950| 22 00 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |".      |        |
|00000960| 80 0b 20 75 3c 2a 68 5c | 62 20 80 21 20 2a 68 5c |.. u<*h\|b .! *h\|
|00000970| 62 3d 75 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |b=u.    |        |
|00000980| 80 c0 00 00 00 00 20 20 | 20 20 20 20 20 20 20 20 |......  |        |
|00000990| 80 c0 00 20 20 20 20 20 | 20 20 20 80 17 00 20 20 |...     |   ...  |
|000009a0| 20 20 20 20 80 c0 00 20 | 20 20 20 80 17 00 20 20 |    ... |   ...  |
|000009b0| 80 17 00 00 20 20 80 16 | 20 6c 3d 30 20 80 18 20 |....  ..| l=0 .. |
|000009c0| 6c 69 6e 73 00 20 20 20 | 20 2a 6c 3d 6c 69 6e 28 |lins.   | *l=lin(|
|000009d0| 6c 29 00 20 20 20 20 80 | 06 20 44 72 61 77 4c 69 |l).    .|. DrawLi|
|000009e0| 6e 00 20 20 80 17 00 80 | 07 00 00 00 2e 44 72 61 |n.  ....|.....Dra|
|000009f0| 77 4c 69 6e 00 20 20 80 | 0b 20 2a 6c 5c 62 3e 2a |wLin.  .|. *l\b>*|
|00000a00| 6c 5c 61 00 20 20 20 20 | 73 78 3d 2a 6c 5c 73 74 |l\a.    |sx=*l\st|
|00000a10| 78 2b 2a 6c 5c 64 65 6c | 78 2a 2a 6c 5c 61 00 20 |x+*l\del|x**l\a. |
|00000a20| 20 20 20 73 79 3d 2a 6c | 5c 73 74 79 2b 2a 6c 5c |   sy=*l|\sty+*l\|
|00000a30| 64 65 6c 79 2a 2a 6c 5c | 61 00 20 20 20 20 66 78 |dely**l\|a.    fx|
|00000a40| 3d 2a 6c 5c 73 74 78 2b | 2a 6c 5c 64 65 6c 78 2a |=*l\stx+|*l\delx*|
|00000a50| 2a 6c 5c 62 00 20 20 20 | 20 66 79 3d 2a 6c 5c 73 |*l\b.   | fy=*l\s|
|00000a60| 74 79 2b 2a 6c 5c 64 65 | 6c 79 2a 2a 6c 5c 62 00 |ty+*l\de|ly**l\b.|
|00000a70| 20 20 20 20 80 1c 20 23 | 76 6f 72 00 20 20 20 20 |    .. #|vor.    |
|00000a80| 20 20 bb 85 20 73 78 2c | 73 79 2c 66 78 2c 66 79 |  .. sx,|sy,fx,fy|
|00000a90| 2c 32 00 20 20 20 20 80 | 1f 00 20 20 20 20 80 1c |,2.    .|..    ..|
|00000aa0| 20 23 64 65 6c 00 20 20 | 20 20 20 20 bb 85 20 70 | #del.  |    .. p|
|00000ab0| 74 28 2a 6c 5c 69 29 5c | 78 2c 70 74 28 2a 6c 5c |t(*l\i)\|x,pt(*l\|
|00000ac0| 69 29 5c 79 2c 70 74 28 | 2a 6c 5c 6a 29 5c 78 2c |i)\y,pt(|*l\j)\x,|
|00000ad0| 70 74 28 2a 6c 5c 6a 29 | 5c 79 2c 31 00 20 20 20 |pt(*l\j)|\y,1.   |
|00000ae0| 20 80 1f 00 20 20 80 c0 | 00 00 80 07 00          | ...  ..|.....   |
+--------+-------------------------+-------------------------+--------+--------+